home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.02 Feb 88 / c postcard / PostCard.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-13  |  7.5 KB  |  393 lines  |  [TEXT/KAHL]
  1. /* 
  2.  * PostCard, version 1.0, Lightspeed C
  3.  * demonstrates using data forks and resource tricks
  4.  *
  5.  * Copyright 1987 by Joel McNamara - All Rights Reserved
  6.  * for MacTutor Magazine
  7.  *
  8.  * initial coding - October 12, 1987
  9.  */
  10.   
  11. #include    "MacTypes.h"
  12. #include    "QuickDraw.h"
  13. #include    "WindowMgr.h"
  14. #include    "EventMgr.h"
  15. #include    "MenuMgr.h"
  16. #include    "FileMgr.h"
  17. #include    "MemoryMgr.h"
  18. #include    "ResourceMgr.h"
  19. #include    "StdFilePkg.h"
  20. #include    "OSUtil.h"
  21. #include    "DialogMgr.h"
  22.  
  23.  
  24. /* defines... */
  25. #define MessageDLOG    255
  26. #define    AboutDLOG    256
  27. #define    HelpDLOG    257
  28.  
  29. #define    AppleMENU    1
  30. #define    About            1
  31.  
  32. #define    FileMENU    255
  33. #define    Quit            1
  34.  
  35. #define    CommandMENU    256
  36. #define MakeCard        1
  37. #define Help            3
  38.  
  39.  
  40. /* globals... */
  41. Boolean            done;
  42. char            theString[256];
  43. MenuHandle        AppleMenuHndl, FileMenuHndl, CommandMenuHndl;
  44. EventRecord        theEvent;
  45. DialogPtr         theDialog;
  46. int             resRef,dummy,myError;
  47.  
  48.  
  49. /* main */
  50. main()
  51. {
  52.     Initialize();
  53.     do{
  54.         MainLoop();
  55.     }while(!done);
  56. } 
  57.  
  58.  
  59. /* as always... */
  60. Initialize()
  61. {
  62.     InitGraf(&thePort);
  63.     InitFonts();
  64.     InitWindows();
  65.     InitMenus();
  66.     TEInit();
  67.     InitDialogs(0);
  68.     InitCursor();
  69.     FlushEvents(everyEvent, 0);
  70.  
  71.     SetUpMenus();
  72.  
  73.     done = FALSE;
  74.     myError = 0;
  75. }
  76.  
  77.  
  78. /* make the menus */
  79. SetUpMenus()
  80. {
  81.     AppleMenuHndl = GetMenu(AppleMENU);
  82.     AddResMenu(AppleMenuHndl, 'DRVR');
  83.     InsertMenu(AppleMenuHndl, 0);
  84.  
  85.     FileMenuHndl = GetMenu(FileMENU);
  86.     InsertMenu(FileMenuHndl, 0);
  87.  
  88.     CommandMenuHndl = GetMenu(CommandMENU);
  89.     InsertMenu(CommandMenuHndl, 0);
  90.  
  91.     DrawMenuBar();
  92. }
  93.  
  94.  
  95. /* generic dialog displayer */
  96. DoDialog(theDLOG)
  97. int    theDLOG;
  98. {    
  99.     theDialog = GetNewDialog(theDLOG, 0, -1);
  100.     DoButton(theDialog);
  101.     ModalDialog(0, &dummy);
  102.     DisposDialog(theDialog);
  103. }
  104.  
  105.  
  106. /* message display routine */
  107. DoMessage(theMessage)
  108. Str255    theMessage;
  109. {
  110.     theDialog = GetNewDialog(MessageDLOG, 0, -1);    
  111.     ParamText(theMessage, "\p", "\p", "\p");
  112.     DoButton(theDialog);
  113.     ModalDialog(0, &dummy);
  114.     DisposDialog(theDialog);    
  115. }
  116.  
  117.  
  118. /* loop until we're done */
  119. MainLoop()
  120. {
  121.     SystemTask();
  122.     if (GetNextEvent(everyEvent,&theEvent)) {
  123.         switch (theEvent.what) {
  124.             case mouseDown:
  125.                 DoMouseDown();    
  126.                 break;
  127.                 
  128.             default:
  129.                 break;
  130.         }
  131.     }
  132. }
  133.  
  134.  
  135. /* if we have a mouse down */
  136. DoMouseDown()
  137. {
  138. WindowPtr     whichWindow;
  139. int            thePart;
  140.  
  141.     thePart = FindWindow(theEvent.where,&whichWindow);
  142.     switch(thePart) {
  143.         case inMenuBar:
  144.             DoMenu();    
  145.             break;
  146.  
  147.         case inSysWindow:
  148.             SystemClick(&theEvent, whichWindow);
  149.             break;
  150.  
  151.         default:
  152.             break;
  153.     }
  154. }
  155.  
  156.  
  157. /* if a menu hit then... */
  158. DoMenu()
  159. {
  160. long menuChoice;
  161.  
  162.     menuChoice = MenuSelect(theEvent.where);
  163.     DoMenuItem(menuChoice);
  164. }
  165.  
  166.  
  167. /* which menu was selected? */
  168. DoMenuItem(menuChoice)
  169. long menuChoice;
  170. {
  171. int     theMenu,theItem;
  172.  
  173.     if (menuChoice != 0 ) {
  174.         theItem = menuChoice;
  175.         theMenu = (menuChoice >> 16);
  176.  
  177.         switch (theMenu) {
  178.             case AppleMENU:
  179.                 DoDA(theItem);
  180.                 break;
  181.                 
  182.             case FileMENU:
  183.                 done = TRUE;
  184.             break;
  185.             
  186.             case CommandMENU:
  187.                 DoCommands(theItem);
  188.         
  189.             default:
  190.                 break;
  191.         }
  192.         HiliteMenu(0);
  193.     }
  194. }
  195.  
  196.  
  197. /* the apple menu was hit */
  198. DoDA(theItem)
  199. int theItem;
  200. {
  201. int accNumber;
  202.  
  203.     if (theItem == About)
  204.         DoDialog(AboutDLOG);
  205.     else{
  206.         GetItem(AppleMenuHndl,theItem,theString);
  207.         accNumber = OpenDeskAcc(theString);
  208.     }
  209. }
  210.  
  211.  
  212. /* the commands menu was hit */
  213. DoCommands(theItem)
  214. int theItem;
  215. {
  216.     switch(theItem) {
  217.         case MakeCard:
  218.                 ConvertFile();
  219.             break;
  220.  
  221.         case Help:
  222.                 DoDialog(HelpDLOG);
  223.             break;
  224.             
  225.         default:
  226.             break;
  227.     }
  228. }
  229.  
  230.  
  231. /* make a postcard */
  232. ConvertFile()
  233. {
  234. char*        buffer;
  235. long        theEOF;
  236. int            currentResRef,refNum,destRef;
  237. Handle        codeHandle;
  238.  
  239. Point        myPoint;
  240. SFReply        paintReply, myReply;
  241. SFTypeList    myTypes;
  242. FInfo        myFInfo;
  243. OSErr        myErr;            
  244.  
  245.     myTypes[0] = 'PNTG';
  246.     myPoint.h = 90;
  247.     myPoint.v = 90;
  248.  
  249.     /* first we create the application */    
  250.     DoMessage("\pFirst name the PostCard you want to create.");
  251.     SFPutFile(myPoint, "\pEnter PostCard name:", "\pMy PostCard", 0,
  252.         &myReply);
  253.     if (myReply.good)
  254.     {
  255.         SetVol(0, myReply.vRefNum);
  256.         CreateResFile(myReply.fName);
  257.         
  258.         /* make it what we want... */
  259.         myFInfo.fdType = 'APPL';
  260.         myFInfo.fdCreator = 'PDIS';
  261.         myFInfo.fdFlags = fHasBundle;
  262.         myFInfo.fdLocation.h = 0;
  263.         myFInfo.fdLocation.v = 0;
  264.         SetFInfo(myReply.fName, myReply.vRefNum, &myFInfo);
  265.         
  266.         /* open its resource fork */
  267.         resRef = OpenResFile(myReply.fName);
  268.         if (resRef != -1)
  269.             {
  270.                 /* get PostCard's resource ref number and then
  271.                    start moving the resources */
  272.                 currentResRef = CurResFile();
  273.                 
  274.                 /* first the obvious ones */
  275.                 ResTransfer('BNDL',129, 'BNDL',128);
  276.                 ResTransfer('PDIS',0,'PDIS',0);
  277.                 ResTransfer('FREF',128,'FREF',128);
  278.                 ResTransfer('ICN#',129,'ICN#',128);
  279.                 
  280.                 /* now we grab the FAKEs and make them CODE */
  281.                 ResTransfer('FAKE',0,'CODE',0);
  282.                 ResTransfer('FAKE',1,'CODE',1);
  283.                 ResTransfer('FAKE',2,'CODE',2);
  284.  
  285.                 /* finally get the DUMYs and convert them */
  286.                 ResTransfer('DUMY',0,'CREL',2);
  287.                 ResTransfer('DUMY',1,'DATA',0);
  288.                 ResTransfer('DUMY',2,'DREL',0);
  289.                 ResTransfer('DUMY',3,'STRS',0);
  290.                 ResTransfer('DUMY',4,'ZERO',0);                
  291.  
  292.                 /* update the new application, close it, make PostCard
  293.                    the current open resource fork */
  294.                 UpdateResFile(resRef);
  295.                 CloseResFile(resRef);
  296.                 UseResFile(currentResRef);
  297.                 
  298.                 /* see if we have any errors - open the application */
  299.                 if ( (FSOpen(myReply.fName, myReply.vRefNum, &destRef) != noErr) ||
  300.                         (myError == 1) ) {
  301.                     DoMessage("\pSorry a resource error prevented the PostCard from being created."); 
  302.                     FSDelete(myReply.fName,myReply.vRefNum);
  303.                     myError = 0;                    
  304.                     }
  305.                 else
  306.                 {                                                                    
  307.                 /* here we select the paint file we want to convert */
  308.                 DoMessage("\pNow select the Paint file you want to display.");
  309.                 SFGetFile(myPoint, "\p", 0, 1, myTypes, 0, &paintReply);
  310.                 if (paintReply.good)
  311.                     {    
  312.                         /* open, read, and write into the document */
  313.                         if (FSOpen(paintReply.fName, paintReply.vRefNum, &refNum) == noErr)
  314.                             {
  315.                                 if ( GetEOF(refNum, &theEOF) != noErr)
  316.                                     myError = 1;
  317.                                 buffer = NewPtr(theEOF);
  318.                                 if ( FSRead(refNum, &theEOF, buffer) != noErr)
  319.                                     myError = 1;
  320.                                 if ( FSWrite(destRef, &theEOF, buffer) != noErr)
  321.                                     myError = 1;
  322.                                 myErr = FSClose(refNum);
  323.                                 myErr = FSClose(destRef);
  324.                                 if (myError != 1)
  325.                                     DoMessage("\pYour PostCard has been created!");
  326.                             }            
  327.                     }
  328.                     else
  329.                     {
  330.                         /* get rid of file we've created */
  331.                         FSDelete(myReply.fName,myReply.vRefNum);    
  332.                     }
  333.                 }
  334.                         
  335.         }
  336.         else
  337.             myError = 1;
  338.             
  339.     if (myError == 1) {
  340.         /* opps, problems - blitz the file */
  341.         DoMessage("\pSorry an error prevented the PostCard from being created."); 
  342.         FSDelete(myReply.fName,myReply.vRefNum);
  343.         }
  344.     }
  345. }
  346.  
  347.  
  348. /* grab a resource and rename it routine */
  349. ResTransfer(sourceRes, sourceID, destRes, destID)
  350. ResType    sourceRes, destRes;
  351. int        sourceID, destID; 
  352. {
  353. Handle    codeHandle;
  354.     codeHandle = NewHandle(0);
  355.     
  356.     /* get the source resource */
  357.     codeHandle = GetResource(sourceRes,sourceID);
  358.     
  359.     /* set the current res file to the stand alone document */
  360.     UseResFile(resRef);
  361.     
  362.     /* detach the source resource... */
  363.     DetachResource(codeHandle);
  364.     
  365.     /* and add it to the document */
  366.     AddResource(codeHandle, destRes, destID, "\p");
  367.     if (ResError() != noErr) {
  368.         DoMessage("\pSorry, couldn't copy the required resource.");
  369.         myError = 1;
  370.         }
  371. }
  372.  
  373.  
  374. /* fancy button for the modals */
  375. DoButton(myDialog)
  376. DialogPtr    myDialog;
  377. {
  378. short        myType;
  379. Handle        myHandle;
  380. Rect        myBox;
  381. GrafPtr        dummyPort;
  382.  
  383.     GetPort(&dummyPort);
  384.     SetPort(myDialog);
  385.     GetDItem( myDialog, 1, &myType, &myHandle, &myBox );
  386.     InsetRect(&myBox, -4, -4);
  387.     PenSize(3, 3);
  388.     FrameRoundRect(&myBox, 16, 16);
  389.     PenNormal();
  390.     SetPort(dummyPort);
  391. }
  392.  
  393.